home *** CD-ROM | disk | FTP | other *** search
/ Generous Efforts of Many / gemcd.zip / GEM.CD.A.po / FEATURES:BEAGLE / UTIL.CITY.SHK / UTILITY.CITY / REM ZAP.A.bas < prev    next >
BASIC Source File  |  2000-01-01  |  1KB  |  16 lines
  1. 2  REM <CTRL-M><CTRL-M>==============<CTRL-M>REM ZAP<CTRL-M>BY BEAGLE BROS<CTRL-M>==============
  2. 3  ONERR  GOTO 100
  3. 5 LOC = 768:S1 =  PEEK(LOC):S2 =  PEEK(LOC +1):E1 =  PEEK(LOC +2):E2 =  PEEK(LOC +3)
  4. 6  PRINT  CHR$(4);"PR#0"
  5. 10  HOME : INVERSE : PRINT " REM ZAP ": NORMAL : PRINT : PRINT " BY BERT KERSEY": PRINT " BEAGLE BROS": PRINT : PRINT 
  6. 20  INPUT "ZAP REM ON LINE NUMBER: ";LI:LS = S1 +S2 *256:EN = E1 +E2 *256
  7. 30 LE =  PEEK(LS) + PEEK(LS +1) *256:LQ =  PEEK(LS +2) + PEEK(LS +3) *256: IF LS >EN  OR LQ >LI  THEN  INVERSE : PRINT " LINE NOT FOUND ": NORMAL : GOTO 70
  8. 40  IF LQ < >LI  THEN LS = LE: GOTO 30
  9. 50  FOR I = LS TO LE: IF  PEEK(I) < >178  THEN  NEXT 
  10. 55  FOR J = I TO LE -1:N =  PEEK(J): IF N >64  AND N <96  AND N < >77  THEN  POKE J,(N -64)
  11. 58  NEXT 
  12. 60  INVERSE : PRINT " DONE ": NORMAL 
  13. 70  PRINT : INPUT "ANOTHER LINE (Y/N)?";A$: IF A$ < >"Y"  THEN 100
  14. 80  VTAB  PEEK(37): GOTO 20
  15. 100  POKE 216,0: PRINT "EXEC REM FIND TO EXPOSE REMS.": POKE 103,S1: POKE 104,S2: POKE 175,E1: POKE 176,E2: END 
  16. 65535  REM  <CTRL-M><CTRL-M>==============<CTRL-M>REM ZAP<CTRL-M>BY BEAGLE BROS<CTRL-M>==============